﻿Public Class ToolTipTarea

    
    Private Sub ToolTipTarea_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Label1.Text = "Crear una forma con 4 botones. Dos de ellos deben estar asociados a las teclas <Enter> y <Esc> " & vbCrLf & _
                    "y deben tener tooltips sin globo. Los otros 2 restantes deben tener tooltips con globo"
    End Sub

    Private Sub ButtonSinGlobo_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseHover, Button2.MouseHover
        Me.ToolTip1.SetToolTip(sender, "ToolTip sin globo")
    End Sub

    Private Sub ButtonGlobo_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.MouseHover, Button4.MouseHover
        Me.ToolTip2.SetToolTip(sender, "ToolTip con globo")
    End Sub

End Class